Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/dde2/userdde.frm

Text File | 1993-05-16 | 25KB | 863 lines

VERSION 2.00
Begin Form USERDDE
   BackColor       =   &H00C0C0C0&
   Caption         =   "Interactive DDE"
   ClientHeight    =   5070
   ClientLeft      =   630
   ClientTop       =   1455
   ClientWidth     =   5775
   Height          =   5760
   Icon            =   USERDDE.FRX:0000
   Left            =   570
   LinkMode        =   1  'Source
   LinkTopic       =   "UserDDE"
   ScaleHeight     =   5070
   ScaleWidth      =   5775
   Top             =   825
   Width           =   5895
   Begin Timer timNotify
      Enabled         =   0   'False
      Left            =   5880
      Top             =   4560
   End
   Begin SSFrame frmLinkMode
      Caption         =   "Link Mode"
      Font3D          =   0  'None
      Height          =   1935
      Left            =   2760
      TabIndex        =   17
      Top             =   120
      Width           =   1455
      Begin SSOption optLinkMode
         Caption         =   "Noti&fy"
         Font3D          =   0  'None
         Height          =   255
         HelpContextID   =   1130
         Index           =   3
         Left            =   120
         TabIndex        =   21
         Top             =   1440
         Width           =   1215
      End
      Begin SSOption optLinkMode
         Caption         =   "&Manual"
         Font3D          =   0  'None
         Height          =   255
         HelpContextID   =   1110
         Index           =   2
         Left            =   120
         TabIndex        =   20
         Top             =   1080
         Width           =   1215
      End
      Begin SSOption optLinkMode
         Caption         =   "&Automatic"
         Font3D          =   0  'None
         Height          =   255
         HelpContextID   =   1120
         Index           =   1
         Left            =   120
         TabIndex        =   19
         Top             =   720
         Width           =   1215
      End
      Begin SSOption optLinkMode
         Caption         =   "&None"
         Font3D          =   0  'None
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   18
         Top             =   360
         Width           =   1215
      End
   End
   Begin TextBox txtData
      Height          =   1935
      HelpContextID   =   1010
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   9
      Top             =   2640
      Width           =   5295
   End
   Begin CommandButton cmdAction
      Caption         =   "&Exit"
      Height          =   375
      Index           =   3
      Left            =   4440
      TabIndex        =   14
      Top             =   1680
      Width           =   1095
   End
   Begin TextBox Text1
      Height          =   375
      HelpContextID   =   1010
      Index           =   3
      Left            =   1200
      TabIndex        =   7
      Top             =   1680
      Width           =   855
   End
   Begin CommandButton cmdAction
      Caption         =   "E&xecute"
      Height          =   375
      HelpContextID   =   1230
      Index           =   2
      Left            =   4440
      TabIndex        =   12
      Top             =   1200
      Width           =   1095
   End
   Begin TextBox Text1
      Height          =   375
      HelpContextID   =   1010
      Index           =   2
      Left            =   1200
      TabIndex        =   5
      Top             =   1200
      Width           =   1335
   End
   Begin CommandButton cmdAction
      Caption         =   "&Poke"
      Height          =   375
      HelpContextID   =   1220
      Index           =   1
      Left            =   4440
      TabIndex        =   11
      Top             =   720
      Width           =   1095
   End
   Begin TextBox Text1
      Height          =   375
      HelpContextID   =   1010
      Index           =   1
      Left            =   1200
      TabIndex        =   3
      Top             =   720
      Width           =   1335
   End
   Begin CommandButton cmdAction
      Caption         =   "&Request"
      Default         =   -1  'True
      Height          =   375
      HelpContextID   =   1210
      Index           =   0
      Left            =   4440
      TabIndex        =   10
      Top             =   240
      Width           =   1095
   End
   Begin TextBox Text1
      Height          =   375
      HelpContextID   =   1010
      Index           =   0
      Left            =   1200
      TabIndex        =   1
      Top             =   240
      Width           =   1335
   End
   Begin Label lblStatus
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   1200
      TabIndex        =   15
      Top             =   4680
      Width           =   4335
   End
   Begin Label lblStatusLabel
      BackColor       =   &H00C0C0C0&
      Caption         =   "Status:"
      Height          =   255
      Left            =   240
      TabIndex        =   16
      Top             =   4680
      Width           =   735
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Server | Topic | Item"
      Height          =   255
      Left            =   960
      TabIndex        =   13
      Top             =   2280
      Width           =   4575
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Data:"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   2280
      Width           =   615
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Time&Out:"
      Height          =   255
      Index           =   3
      Left            =   240
      TabIndex        =   6
      Top             =   1800
      Width           =   735
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Item:"
      Height          =   255
      Index           =   2
      Left            =   240
      TabIndex        =   4
      Top             =   1320
      Width           =   735
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Topic:"
      Height          =   255
      Index           =   1
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   735
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Server:"
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   735
   End
   Begin Menu mnuSourcePopup
      Caption         =   "Sour&ce"
      HelpContextID   =   2000
      Begin Menu mnuSource
         Caption         =   "&None"
         Checked         =   -1  'True
         HelpContextID   =   2000
         Index           =   0
      End
      Begin Menu mnuSource
         Caption         =   "&Server"
         HelpContextID   =   2000
         Index           =   1
      End
   End
   Begin Menu mnuFeaturePopup
      Caption         =   "Feat&ures"
      Begin Menu mnuFeature
         Caption         =   "&Always on Top"
         HelpContextID   =   3010
         Index           =   0
      End
   End
End
' Define LinkExecute attributes. NUMEXECUTECMDS
' is the number of execution commands MINUS 1.
' The EC_ constants define the id value of each
' valid execution command. These must be sequential
' numbering from 0 to NUMEXECUTECMDS.
'
' To add new commands:
' 1) increment NUMEXECUTECMDS
' 2) add a new EC_ constant equal to the new
'     NUMEXECUTECMDS value.
' 3) Add to the DoLinkExecute procedure a Case
'     statement to th